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(54)Title: APPARATUS FOR PRODUCING SOFTWARE AND METHOD FOR PRODUCING SOFTWARE 



(57) Abstract 

To automatically produce software in any field by using only a 
mechanical algorithm without relying on the individual ability of the SE such 
[as experience, knowledge and ability for adaptation, a W04 phase element, a 
W04 logical element, a W02 logical element, a W03 phase element, a W03 
logical element, and a pallet function for which derivation data for deriving a 
defined body identifier, a word identifier, a processing path, and a preset 
value are not defined arc stored in advance, and a defined body identifier, a 
word identifier, a processing path, and derived data are inputted for each word 
and buried in predetermined positions in the undefined W04 phase element, 
W04 logical clement, W02 logical clement, W03 phase clement, W03 logical 
element, and pallet fijnction. The invention is usefiil to produce and maintain 
software. 
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m m w 

^i^^M<Dy y hO x.T\t, ^^^m. S*IStt, mmmf, y'a^^^ 

tjgoT. mm^izi^v y j:.t ^^m^iz^pzv^y i-r-s^ss 
-r^z^7i<X't^yy h o :c7 (D±i^mm:RUv y by x.7(D±BZ:^m 

^miZt^LXm-i^iZ^tET^V y h 'y Ji7 (D^^A^'^mr.HL Y E E(D 

-^m^mmii Lxucis6x±fi&'r^zt^^x^^h(DX'$>K). t(D'^^. 
ho x.7(D±BzmmBi:Uy y h ^^7 (D±m:fjm^mQ^.-r^ zt^^^m 
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4fi:t§M^s:c/w 0 4mmmm. ^mm^^^^T^rzi^cDy/ 0 2mm 
nm. m.u\zy T -r )i^w.m<D^—i^mM^n ^ tz>!b<Dw 0 sa^mmR 
y^wo 3 mm^mx^^x . 

( a - 1 ) w 0 4 iiLmwm\t. mcmm(Dwo 3 co5=-'-^x u r^^" ^" 
xfSLi^m-^izit. mmwo 4 (t^s^^^— ^xu t {zmtimcmm(Dw 0 

(a -2) W 0 4 f^imiNfi. a^^lg(Z)WO 4 <75 7'-5'X U r7!>^"' ^" 

xtii^m'^x$)^xmcm-m(Dv/ 0 2 ttw 0 3cD^e£iz:7^^/;5^-fe 

^ ^^\J±y h S^^lf(DW0 4(D5^-:S'X'JT75^"^coii^" IC 

^tts Lx^mi^^m^mmmm(Dw 0 4 (^t^-^^xu ticis^l, buis 
m^m^mitix^r£^^m'^x^-z>x'mmw]'^mr£t€(z \tn^m}y ^ ^ 

(a -3) w 0 2mmmmit, ^^^is^wo 2 <75x-^xu 775^'" ^" 
\Lum^x&r)X'm^m'^mfj.iz^izitm^my y ^'^-t-^ h l, 
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(a -4) WOSiSimmmi^. mCmm<D\WO 2(D^—'^JLt)7A^-' ^" 
( a - 5 ) WO 3^m^Mit, ^^^iiCOWO 3 (Dv^—i^JL'J Tts^" ^" 

(b) SffiSfC ai^i®cg±tc??^E-rsmig©#W 0 4 -fe*iMSS:Lf^W 0 

=fe)iz#^sg(73#wo 4 7^— ^j'x u z^M^Ji^7:^w 0 4 /1 u -v h , as 

i: i t) (c:§#i§CD#W 0 2 7^— :$'X ij T ^W-^ji^AjtzW 0 2 U -y h . 

i fe{C&^f§(D#W 0 3 5^— ^X ij 7 ^m^ii/u/fW 0 3/tU-;/ h 
r ^ /N° U H P <i: , 

(c) U -y Sl*IcD&&+Bg^J^Z>*liIlg,^^^fT-r^ <t^(C, ms& 
/N- U .y h [^(D/t U «y h ^^Sij:7 ^ .y S tl T U -S ^ {C « . mm 

( d ) Hul2W 0 4 U -y h <75 5lfTfCS^" < m^f—'P't Zl>\d:i. — 9(r> 

mm±\zm.m l . m ft oiisfc^-i-r -5 ¥ h ® r"— ^ ft l tbuieivv 

0 2 /N- b -y h ^^fT L, ^I^W 0 2 /\' 1/ -y h <7) M l^iiafiiMSS 7 7 ^ 13 S 
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wo 2^SMS. wo Sfe+BM^. WO Z^mmmRZJ^±i^ (b) OA 

nm^mmjsi.v^mmm'ih^-^ Suieieti^nfc^^^ow o 4{4:is 
wo 4i^mmm. wo 2iSiS^^. wo s&mwm. wo si^s 

g ^ -t IS CD (b) (D/^U hmmZJ^iZ (c) CD^I^(7)m^<?)'fia{- 

wo 4 {i+gH^S-t/W 0 4i^IlM^. jjailMg§^?^^-r^^ci?)CDW 0 2 
(a-1) W 0 4 f4^@-g^ li. lHli;^|g(75W0 3(757='— rJ'X'J T75^" ^" 

Tf^i^m-^izi^i. muw 0 4 (Dmm'f-^ jL^j TizmtEmcmi§<^yf 0 

3 (D^r— :5' X 'J TcOM^aS^ET^ ^> COT^ 0 . 

(a -2) W 0 4 aiifi^j^li, li^mi§(7)W 0 4 Ot-'-^X U Tt!)^'" ^" 
T-7kUii^-r^oT[nI D^,1S<7)W 0 2 S/c{SW 0 3 O^^glL^ 5" Cft^±i 
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(a -3) W0 2^iig^{S, ^^^liOWO 2 cDt^— ^XU T75<" ^" 

(a-4) WO S'fa+SH^tt, |WIi;^gg(DWO 2 Ot'— ^X U 7 75^" ^" 
T'T'jrUJ^^tCli, ^I^WO 3 (D^I^T^ — ^X'J Zl3tij|H[Rl i;^i§CDW 0 
2 (D ^— ^X U TcTDM^^^f-StxT^T^D. 

( a - 5 ) WO 3 mmmm\t.. S^mSfCOWO 3 (Dt"— t^xU T-h^" ^" 
c^^^tcti, ^^¥SgJ!^^(D^|g(7)W 0 3 (T^t'-^x U r75^ 6 ^l^^if 
<7)IS^fg^^ffiLT^f^ig^fii^Sl^mi§c^W0 3 (D^—'^:sL 'J 7 (CIS 

R§hy y if ^"^-j hL, ^^Si!j^"5THg/=j: <h ^ (Z «^B5ciz: 7 ^ ^ -fe h 

( b ) iiiSS{c^l^ili®±(r#iS-r'5^5§cDg-w o 4 e^B^^SO^w 0 

=&IC-&¥3§C75&W0 4 7^— ^X 'J 7'*M^ii^/iVV0 4 /n° U -y h , HI® 
^(c^l^ili®±(c??ffi-r^mig<7)§w 0 2 iiSiSg^^llff "lHg(3S 
^ <!: 1 (C^^ISCD&W 0 2 ^— ^X'J T^a^ii^/fW 0 2 /I U -y 
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t =b {C&¥I§CD#W 0 3 5=^-^ X 'J T^m^'j^^/ufcW 0 3 /I 1^ -y h 
-r ^ /"^ 1/ V h i: , 

(c) ^/-^i^'yhf^<D^^^mmRzj^mmmM^mn-r^t^\z, mm 

mW^m.^m.%^\=¥- . ft! SB mis IS? SU^, tute5!iSMSSS:?^l<rl2l£^M^# 

wo 2t^sg^. wo sffi^g^m. wo 3 iSriiiiss:z>'±te<75 (b) o 
iB^jas^sii§:s:iXH9fe^ttiT'-^ ^. Hui2iett$n7t*^m<75w o 4 fs^s 

M^. W0 4iiSi®M^> W0 2ffeIlM^. W0 3StBg^. WOSffelJ 
MI^&J>±SB<73 (b) <D A U <y Ng^MU-'lC (c) (D^m<DPffm(DiiLmiZ 
.iA tf 
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PCT/JP97/0 1492TS-5« ) . Z tlit . LYEE 
(Governmental Methodology for Software Providence) ii^ittl^ h 



n 



(n^l) -C^^ns, TqSv^'J 



-^0=^0 ( '^p ^^E 

+ cl) { Y • T 

^p^^D. i.W03 

P E 



W 0 2 ^ E ^ e 



i , W 0 4 



i . W 0 3 ' 
E . i , W 0 4 



} ^ } 



CD 



{ L 



E . 



^p ^^D 
^p 



WO 2^ E=WO h 



W 0 3 * ^ D 



WO 3^ d=^° ^''"^'^ ^ 
W04> E==^°^''^'^ ^ 



. W 0 4 E , i 
X^^o e ; m^zy7.v^A\ZW^-r^E(Dmmt^^'i)i&iL^^X$>^, 

D ; is®, mx. y T ^ ji^m^mi^cD^m^^^^^^tL^'^xsb^ (e 
D fz -g- s n s , ) o 

d ; m^i^7.TAlzr¥^T^D0)mmt^^^niL^^X$,^ (elidfC 
^^tll), ) o i ; E^D iC^^n-S^ii <75|SISil^ 

r^^m T ^ ^ , 

w^Lx^^n^^m-^itmniz^^m^'^m^m^x^^o "^(Dtm^m^ 
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^D. i, Wn m^it^ntz&m^m. 

wo 2 . W03, W04 ; M<^mm (/1 U y h) iSSiJ^T?^-§> (."Ei*^ 

^^^iHM^iti. WO 4^wo 2-wo ) . 

So A U- >y h <73]MJlli^S:{t. W 0 4-* WO 2 -^W 0 3 T@^o 
E 4 7 fc^L^-fe^ig^fiLlX^S^^^^'fcyi U 'y h 13 IS: , m 

^^m-r^rziib<D-&mnt.^n^m'Biiistk'^mmm.mz/'^ vy v^mz 

So 

in ® (7) ^ # 7^5 I5t 

miglli, ^(7)^H«(C^S L YE EcD^/^dT^S, 
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ST", LYE E <7)ii^{cso'< V7 j^T (Dm^^m.m-r^, 

iaifiLYEE(DS^fCS-3'<V7 K '^7 x T <7D «l 5£ ^ « BS fit! (3 tj^ L T^c 

L YE EaDll^{cSt3-< V7 hr^xTfJ, ^\zm I \Z^T J^'b f^m'M. 
OS 0 U 1 0 2 {C^Sjg^fl 1 0 3 T^^'M^ii S tl/r =&/N' U 

•y h 1 0 4 75^'/t u- hii^^^ 1 0 1 \z^^x'mm^i&z.-rm'Miifs.'D 

/N* U -7 h BMPJ^ 10 1. /\° U >y h 1 0 2 S?>'^)E»^fl 1 0 3 (S. 
JiiiE L L Y E E (DS^lcSo'^^n-^'n 1 X t" v 77K ^ S T ili - W 13 

^nrt^-s, m^^w&m i o 3 izti. w 0 4 sjs^s, w 0 2 mmm 
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sscA'w 0 3 mmi^m^^^^, a u y hm^ 102 (cw 0 4 ms^Mtm^^ 

Sa^jA^tlT^i/l 1/ <y h 1 0 4 0 4 /-^ >y h . /t y h§3|5c 1 0 2 (C 
W 0 2 SJgiraa75^'M^ii^tl7t/1 U >y K 1 0 4 $:W 0 2 U 
U V 10 2 f'W 0 3 mMmmfJ^m^&^tlTc/-^ U -y h 1 0 4 

0 3 /t >y h <iilJ?^<, #A'U<yh(C{i. 0 1 (C^ Urcct ^ {C. ^^IgS 
l-^^-rS'^^^-r-S^-^X'J TTi-Ja^ii^tlT V^-S, WO 4/1U>y h 
^^'XUT'^WO 45= — :$'X'J7', WO 2 U y h<Dy=^— i^Jl'JY 
^W 0 2 5="— i'X ij YRV^VJ 0 3 U >y h (D^^— r^'X U T^W 0 3 7^ — 
^X ij T <tll?^<o 

w 0 4 SiS^sfcts. &mmmtf^m^miz^^^^. 3nb€:W0 4 
-fetaM^, w 0 4 ifeiisi^ cfcffg^^, w o 2 sisi^sfcfi. ^mmm:^^$> 

^, wtl^W 0 2 ijilM^chli?^^, W 0 3 S/S^B|{C«. S-fi^^i:^ 
S|g^<h;5^'*^, Zlilb^WO 3^affiM^, wo 3 iSiS^^ili?^^, 

WO 4 ^mmmiBczj^w 0 4miMmm\t. mw^m^n v r^at <d zf a ^ 

Z. n «=) CDSiElrll 1 0 3 (i, ^Mf^ V -7 h'y ::l7 (C'if^^TiS® 1 0 
LTf^fi£$tl-5 3 HI 1 <Dm-Cmo i: . iS® 1 0 5 ± iC^e^J ^ tt'mii TiigiE 

fiTiM-Peic^ n-5o /=£^3. S/gtiii(7D ^ ^ . wo4'fiii^^, wo 4^^ 

0 3 effi^^Sr/WO 3 .1iSi?iM^{30UT(S :7 r ;UMtf<D7^-^$S* 

1 0 
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wo 4i<L^mm, wo ^Msmmm^zj^w zmmmmitmcmmx'^^T 
sij<@{c^^$n;tmig75^*-e<7Ds ^{@srj{cw 0 3 ^MM^ch LxmmTti 

it J: 0^, 

H 2 (i/t u >y hMI^^Sc 101 A^^K-r:7n — — 

fc/\° U -y K 1 0 4 ^M^iZii^tiJ: (.^o 

^jAfdTEii I izffk-riskmm^m {^m'm^m(Dmmizz)i^xitmm-r 

^ , ) ^ # sa L fcC 75^ 6 152 T -5 i: . m A. it ?>■ — ^ - mm C S M E N U 

(.G s MENU -n. — mm (Dmm{^^m=F) \zii^^x r^^i^Bs^j 

^<MiR^ t (^Jx. - 3. — ®® G S M E N U {C;fe l^T r^-^ — 
No=n + ENTERj <D mi^) , rjr^igjaa^j (7)ia®GSOI 0 8 

(Gs o I 0 8 itmmm^mm(D^mi!^Mm^) ^mmm^J::ik^T^o 

MfHtlBlCv-XT-A^g^lIf -SltlS ( ;< - ^ — i®® G S M E N U rn 

griiir^ (7.7^-^^ 2 0 3 ) , zyx^L.^m$^r^tu. m^itosiz 
m^^x^^o 
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(X^y Zf 2 0 7 ) , 

:rX\z. m^-rsw 0 4 /I u >y h^^fTT-g. iT.y^yy'z 0 8) . sn^, 

A'U-y 0 2{3^T(DW0 4 iCg^-TSSiEiiS 1 0 3 ^ 0 W 0 

^LT. Mmmm^n^<rT^ (xv^-^zf 2 0 9 ) » m-^. y^—-^mm 

^LT> ^fi5=^-^7:?^*iE^75^i: -S^i^^JlaJS/TL ( X 7=- -y ^ 2 1 1 ) . ^ 

•A\Z. l^a-r^W 0 2 U >y h^S^frr^ (;?.7^-y r 2 1 2) , g[3-^, 
/^U-y h^^l 0 2{C±T(DW0 2{3§§-r^5/g^iloSDW0 2^fl 
^^7!)^*-fe: -y K $n/iW 0 2/tU>y|-$|^fT-r-5, :itHZ Ji 0 Zl > =l — 

^aHMSSTi^'tfe^^ tlS (X7^-yy213, 214) , ^ES^^SS 

fiw 0 2 siSiiis^±<7D2{iii^g§ :7 ^ ^ (R=i~5) izjz^xmm^n 

-So 

7^';5^'R= 1 cDii^(C{S, IS ^ f ^ W 0 3 /'^ 1/ -y h (7t 
^ )l^<D^$^^mtyf£l^V/ 0 3/1U'y h) ^Hfr-rS (XT--y 7^2 1 5) = 
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^ 5a S CD II fr ^ ^ ^ ^ S§ M S TT ^ -5) , 

J\.^<D^m^^O^ 0 3 A-U>y h) SUfTT-S (XT-'^y 2 1 6) , 

>y y 2 0 1 ) (c: M -5 » 
dCT. MSMSSR = 3 (a:-E-<^)S 0 4 U h (I5l — . ^m<DW\ 

l2I3fl/1U-:/h^^(7D;^it/t^^<A^^T:7n — 5^^— hT^-5o 

WO 2, WO 3, w 0 4 {c^-r-ssj^iss^n^ntz^t.iT ^cD ^ 7i 

^-^-^_^XU TS: itT^ (Xt^v y 3 0 1 ) , fiP "fe . ■^J x 

WO 4 izm-r^/^^u y bm^-citmm z: ^\z. m^mmiz^^&T^mm 

^{;^cDiSSij^7i^*M$ti^7=^— 'J {t-rs. TtTt'L, WO 

02. 3 0 3 ) o 

^304) . ^^^^'J-fe-yhTS (7;7=--y7'305) i (C & & ^ 
•y37'302, 303), 
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ir-zfy t. U — KTi-J^fr^n, ^7 o-XfS/N* U v h ^ ISc Ti^ li j6 T H fr t* 

fetgg^^rY (D, i, Wn) iT^i:. ^"TD, i. Wn-1 (D 
(iSSI^S'J^. i {S¥ig^S'J^, Wn - 1 {Sfi»JA{i''e:+§Ml^^^W 0 3 7i 
bW0 2^^-r. ) (O'r—'^JL^Tt'^'^Xts.^.^-h^^t^^mm^^ 

y 4 0 1 ) , 

^(7)^^{C«^i^g^m Y (D, i, Wn) ^**TT-5o 

i. Wn CD7=^-^X <J T(C^ LT-^*T-r-2> ( X ^ <> 4 0 2 ) » 
SI 5 (JSJS^ilcD o -t-w 0 3 ifellM^co^igyl ^ ^-r A ^^-r :7 o- 

^SM^^L (D, i. WO 3) iT-5<!i. S-r7='-^X U T (D , 
i. WO 3) 75^^T7ii/i75^5;5^^^iJgiJ-r-5 ( X 5^ ^ 5 0 1 ) o 

v^-rJ'xUT (D. i , WO 3) \ZWc\Z^- '9 iJ^^'oX'&Xti.^^^'^ 
(3 . fl M ^ L ( D , i , W 0 3 ) if^ T t" -5 o 

t'-^XUT (D, i. WO 3) \Z^-'9-h^fS.<X'^(D^'^\Z\^. 
-^J'fTDaeiiZBg^fT^ (X5=--;/y5 0 2) , x - ^ C7) § £ ± /'t ct: IS > 7=-* 
— 5'75<A:':Stt<75ii-&lz{i{?i|^{±'5^-^xu z (D, i, W0 2) cdt' 
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_-5,^^_^X'jr (D, i. wo 3) \Z^TZL, J'-i^fJ^lhtim^i. 

'.k\Z. ^—9:r^)T (D. i, WO 3) f}^'^-^U\.^■h^^fi^^nm'r^ 
( X 5^ <;/ y 5 0 3 ) , 

T^-r^'X'JT (D, i, WO 3) \ZT'--^ii^n^-r^z.t.^ts.^rc^ 

-&(C{i, g e:£B5c;5^'5lcS: L 7t (h^Ti L , ^^M^L (D> i. WO 3) 
7=^— ^XUZ (D, i, WO 3) tC^— :$'75^-??SEL/cj:^^-^-&{C{i, D. 

i . w 0 3 (Dn^mti^ >i^\z" 1" ^jnm-r^ (x5"'y^504) , 

M^IA'^TIgT'cC^-^fCtt, m^Wiy^Cf (D, i,W03)^iZ'vhT 
-5 (7.5^-yy506) , 

n^m'^m.-VU^^m'^\Z\t.. -^J^tL-y^y^ (D. wo 3) ^-b^y 

hTS (X7^-y7'5 0 7) , 

mefiS/gf^IiCD^-SWO 2 ^S^^<7)«jg/N° ^-^-fA^^T^n- 

WO 2) *^'?gr'/^c£l.^75^#iJS'Jf -5 (XT--yy60 1) , 

5=^— :57xUr (D, i. W0 2) t"— ^ ^^Vj: < ^ . O^O 

W 0 2 ) €:^*Tr^, 

f-'-^X'J7 (D, i. WO 2) \Z^\Z^—'9 -h^h-^X-^Tzts.'^^^^ 
(Cli.. ^!aseSS$:|S5£-rS (T^T^-y^e 0 2) o MH ^ S§ 0^ fS^ i: IS . 
±K!i L/i$!{iil,^Sg-7 ^ y (R=l~5) ^iS^-r^ d i:-C^-5) = 
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50:SSS§<^^^7)ifi5ii: ufc^-g-fcfi. i^mmmL (d. wo 2) 
y^\z" 1 " *iD^-rs ye 0 4) , 

■5Jtg;5^i'^75^^^iJS-r5 (XT^-y 6 0 5 ) , 

S|5»'5jHg7:j:^-g-{C{S . n^my^Cf (D, i. W02) ^r-t-yh-r 
^ (7;5^«yy606) , 

pJflgTT'cCt.^^^fCH, ^J5£AZ:7^i7- (D, i . WO 2) ^rir-y 
h-r^(X^'yy607), 

^S^^^L (D> i. W04) if^i. S-Tt^— i ij r (D, 
i. WO 4) f}^^X'U^^:f}^^^^^P\m-r^ (Xy^-y-fV 0 1) o 
t'-^XUZ (D, i, W04) (37=^— ^75>*7i < T^tD^^lZti, ^' 

— rJ^CTD^eitiig^fT^ {X7^'yy 7 0 2 ) . 5^— ^CO g e^^iili. 7=-' 

— ^75^'A;^7M't4<^ii^lCfi0iJAfi'T'— ^XU T (D, i, W0 2) (75 5=^ 
_^^^-_^x>jr (D, i, WO 4) ic^-rct, t'— r?' 7i^*i±5;t?Mi4 
<75^^lCli^J;^{i'7 T < ;KD |oI-¥i§® 7=-' - b 7=^-37 ^ S ^±5K-r 
5=-'— ^XUr (D, i. WO 4) 75^S^T/=i:t^7&^g75^ ^^iJS'J-r ^ 

( X T- y 7 0 3 ) , 

T^-^xur (D. i. W0 4) izT'—^fi^^^-r^^^iifji^rzm 
Bizit. ^^^i5Zf}<ns.iLLrz^^tiL. '^mmmi. (d. i. wo 4) 
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T^-^XU7 (D, i. W04) iZy'-'^^^f.iKX <Dm^\Z\-i. 

D, i , wo 4(DniSmti'y>i^iz" i" ^mnr^ (X7^>y t"? o 4), 
n^wi'^mum'^izi:^. n^my^^ (d. i , wo 4) hr 

-5(X5^-yy706). 
0 7 ) o 

— :?7, ;^5=--yy7 0 1(3i3l^T. 7^— tJ'X'J T (D, i . W 0 4 ) (C 

^iZ7'—'^^^$)^x^-cf^i,^m'^\zi^. mmi§(DV70 2 ^eZiLy ^ '^'x 
( 5^ -y y 7 0 8 ) , 

mi§<7)wo 2 ^fi£S::7 ^ i/xfi^^ig<DW0 3 ^^it 7 ^ h 

i^SrU-tl-yh-rS y 7 0 9 ) , 

7ii3. ^fi£iz:=i— fisjx. (j'Ei 1 0 {c.T^-r J; ^ {c. rHgiiE#^j cd 

(D^—-$'JL0 7lZ^(Dm^^7r:T^<Drztbizmi:>tl^o rsglES^j <75 
WO 4 s^IlM^T^fiJclAZi— K;^)^*-ti-y h $n-S <i:, r^-y-fe — ->'j OW 

*%B^fJ!lI 3 {C/T^ U >y h m^. H 4 -HI 7 iZfik L fzi^^WMR 

UMimmm ^zm^ y' a ^ ^ m^iz 'Af^-r ^ h(D-c ^ ^ o nv-^ v 

it, B^t-r^vyhOjL7^^m()^iz±R^r^zii^M,''^f^o 
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K \y Xtzlff-Caiy y ^ ^ ^ 3^ L T U ^ C <h 75^ 'b . V 7 h '!7x 7^ 

m 1 (om^^. 8 0 2 «/\' y hmmm^\z%^yu ^ ^ A^^sdtzm 
-r^m 2 cDsstfegp, 8 0 3it" t'— ^(75gs^5e" (7)gB5^. " iais^ss" 

^7t, 8 0 4 itXilS&S 0 3 TA:t> $ tlfc" t'—^cD^^^bZ" 

6^. " mmm.^" (D^6^-&.zs" i " $m 1 wiBttsc 8 0 2 icteit^ 

^{cii«:)iAiytii\gg. 8 0 5 {i^a?^co^*iM^, mmmm^TS I' y 
hm^izw^^z^a cfy -y hmmm^\zm.^'>2^tsm.&^. 8 o e 

•77901) . "tn^ncDmmizmm^ (.mmwmm^) ^Ix^e-t^ 

iliBilC v7>5^Aa.--i7/^f£.^(D§8iSijT^, ^J^(i*" GSOI 08" t.^ 
o fc^a#:s^S'l^^SS^T^, H 1 0 lCi3t,^T;&{!^'Jc75^tfr^{iT■'- 
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MENUj ) ^^^^^ iz^<D]mmx<Dmmp^m ( r^c - n. — no = n + 
ENTERj . r^7j <Dmmjz(Dmmmm) >b'A\Z'^^^f£mm im 
rp< - ^ — is® G s M E Nuj f)^^it ^^mm^mMG so i 0 s j 

(7)^^^ ^i^Xy^L^mmi . r?^i5Ba#iii® G S O I 0 8 J e. 
frj <DmmmmiZJ:-DX^ T < )UF S H I N F I Ly!}^i <Dy^—i^ 

\t ri^Tj <^mw^miz^^x;<—=L—mmGSMENUi ^(Dm^iB. ) 

-SCOT, ±tHMSf^# {Ci£: C T/l U -y h^cDrBl^^T;^ 

mi l{C*5(.iT. TGS MENUj (DT<D rw04j t±i®®liSiJ^G 
S M E N U A<M $ n/iW 0 4 /\° U -y h 0 . 3 C7)W 0 4 Z'? 1/ -y h {C cfc 
■:)T/-a.-ili®GSMENU/5^?]^fi£$n-S, 

TGSMENUj <7DT<?) rw0 2j ili rnJ lit SiJ ^ G S M E N U /jH^" $ 

ntzw 0 2 A" u >y bxib D > c (Dvv 0 2 /N* u -y h iz J: ^ X ^mm^ 
rcsoi 08 J <75To rwo4j itmmmm'Fc s o i o 8 

n W 0 4 A U -y h T ^ 0 , C (75 W 0 4 /n° U -y =fc o T itJ a? ^ Hi ffi 
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G S O I 0 8 (D^—'^y ^ —Jl' Kica^f -5 5='-^>^»«f^5£$n^, 

TG S O I 0 8 J (DT(D rw 0 2 J ttHM|gS"j^G S O I 0 8 
tlfcW 0 2 A- U >y hT^ 0 , CcDW 0 2 A U-y h C cfc o T5aSSSS75^^ 

u h <Dfi*§M^> Mmmm<Dm:n^m.xf^-mm^mmG s o i o s {c 

r -r v'l'fiMilMSSIllcfc 0 ig:> (d ^ ^ T $ -5 (^J^^fgl 1 l X\t 
rpSHINFILj rpMOTOFILj, rFSHINFTLj^, 
r^S^^S^ r-r^Uj c0^^1$^S'J^^.s(* L . rpMOTOFILj 

75:^, r I o -w 0 4 - R K 1 - s E c J chti. r^^^ifeiT^ T-r;i/j 
rio-wo4-RDi-SECj chfi. rs^7CflS77 r "ir-' 

-^€:'J-H-r^WO 4/'^U-y h ± +f - ^ > '^SiJ ^ T ^ S o T I 
O-W0 2- RK1-SECJ ^M^-^My T )U i ii^^'f--^ 

^ U — Ht"^ W 0 2 U h ±CD-9-7';l' — ^ >iisij^T-s -5 , r I o - 

W0 3- RK1-SECJ r^^-^i|g:7 7 -r ;uj tJ^ 6 t^-iJ' ^ u 

- K -r ^ W 0 3 /\° 1/ >y H ± -y- y;!^ - 5^ > i^gij ^ T ^ -5 o I" I O - W 0 
3 RDl-SECjiili, rs^5tit!S:7T'r;i^J ;5^eT-'-5^€:'J - F 
r^WO 3 /I U -y h ±C7)-9-y;U — 5^>|3lS'JTT^-5= W ± IH 1 
T t> (11 T * ^ , 
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9 0 4) , ^n^'ncomig(c^sii^^^^r-2> (xt^^tsos) , m 

r^Tj {C*f Lrmigl^SijTi: LT'PASSNOr, 'CLNAME". "YOKNZAN". 
•MSSGCDl". 'PF25KEr. ' PF3KEY' ^^T-S » 
iH 1 2 0 3 ct 0 A;'7$n-5^^^(75— ^J^TK-rHT^-S, 

^^^-cfs. iHra^sij^ (ID) (Dxti^^. mm^^(Dp^tim, m§ 

7^— :$'7iJA;t/^tt;:^^t±l;>3mti*^ (I/O) . y'-^<Dm^. 5"-^^^ 

(Mtt) , mmyy-oi (±mvrz^v iz$E^.^tirz 

ji^^mi^T^^^. ) , mmm^ (r-no) . mmf^i^^^mmizn 
^^Lfzmm=^-m^ (f-key) . -^mmmm^. mi§^m (.r"--^ 
(T^geife^) (Dxtimmii^^^. mi§^« (^^-^cT^gerts^) 

mU\Z\t, T-'-:57*^A;^?SttcD^^{C{iL YE ECOi^JifCct 0 gl/jfi^fZ 

nJcT^Ti^Tti'tt. ^la^T^o J:; D r 7 7 -f R - ^fig<75 

<7) - T ^ ^ o 
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mmm^<Dxtimsiz{t. ±mi.rzmmmm (r=i~5) ^m^T 
^, 

^fz. ^^mx'i^z) ^(igmm^i fi, ±ti(Dmmm^ (r-no) , 
mm^-^^ (F-KEY) jS!.zj^:^mmm^'\^\zmmr^o 

0 2), Sj2.gi58 0 4;5^m 1 0 12^. SB 8 0 1 tS^ 6 " 5=^- O ^ 

(D^^. " aaiiMss" <73^:5^s:(:jc" i" A^^^m(D&^^m. mm 
mm. i^mmmRisy^u -y hm^(Dmmo:>i<Lmnzm$^^^zn^^nrz" 
^'nii«6ji*n-2) (;?,7^-vyi 3 0 4) , 

4: 

: 

L-W03-§a;i6S-@!Sl9@-SEC SECTION. 
L-W03-@S;i6&-§l»;i9@-START. 
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*— < ^Ic^tJ^ >— 

IF @«16@-@^19@ OF W03 NOT = SX20@ 

GO TO L-ff03-§X16@-@3;i9@-EXIT 
END-IF. 
~< gS^^ >~ 

— < Xtjm^<Di:^ VV0 2^-ti->h >~ 

MOVE @XI6@-@^19@ OF W02 
TO @%16@-@S;i9@ OF W03. 

e^BS >— 

MOVE G#?#»*-***** OF W03 

TO F#t###-M»»* OF F*##S?-REC. 
PERFORM I0-W03-RD*-SEC. 
IF RD*-INVS = "IV* 

MOVE @^20@ TO @X16§-©%19@ OF W03 

ELSE 

MOVE FS#jf##-@j;i9@ OF F#####-REC 

TO ©3;i6@-§^19@ OF W03 

END-IF. 

COMPUTE §S16@-@«19@ OF W03 

= OF ff03 

+ OF ff03. 

— < sztL'nm >— 

IF §3!16§-§«19§ OF W03 = ^%20§ 
* OR §!i;i6@-§!«19@ OF WG3 > 0 
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ADD 1 TO @«16@-e%199-CNT 

IF 93;i6i-§a;i9@-CNT .< recall-max 

MOVE ■ r TO RECALL-FLG 

ELSE 

MOVE "r TO @XI6§-@3519@-N0N 
END-IF 
END- IF. 
L-W03-9%16@-@X19@-EXIT. 
EXIT. J 

Z(D^^m(DW 0 3 i^mMM<D-f a ■if ^ Alzm^^X . 

@% 8 @ \tmm^^. 

@% 1 6 ©fiSM^giJ^^, 

@% 2 0 @\tm^\zMitsi^rz r^j (DM, 

G # # # # # ^-iy Ji ji Y <:7 ■\z X ^ — (D h L tr^^^m^<w=&T 

## = -###;5r^'***_**:^ {ifSSlZct 0^tii-r-5 7^c«6<75$fiS:'^ 
-etT. mi 2 iZBLfz^m^o:> 

mm?n?jH=F(D\^A^@ 16® 
¥gi.^S']^<7)flg;:>^'@ % 1 9 @ 
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mi±(Dm^^@ % 2 0 @ 

*--< g£^e)c >— 

*--< Xtsm^fDt^ W0 2^-fe-yh>— 

* MOVE OF W02 

* TO @S515@-@S19@ OF W03. 

>— 

* MOVE G#(f###-***** OF W03 

* TO F#»###-***** OF F#*»#if-REC. 

* PERFORM rO-W03-RD*-SEC. 

* IF RD*-INVS = " IV 

* MOVE ©:S20@ TO @S16@-®!S19@ OF W03 

* ELSE 

* MOVE F»####-@X19@ OF F(f##ifl»-REC 

* TO @«I69-@%19@ OF \V03 

* END-IF. 

*--< mtim\±<D^^ m(Dmmt(Dmwx'^E.^^ >— 

* COMPUTE OF W03 

* . = OF W03 

* + OF W03. 
iZ J-t J6 L T U ^ , 



* MOVE §3;i6@-@SI9@ OF \V02 
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* TO §X16@-@X19@ OF W03. 

U T (D , U Wn) - 1 (DJ"-^ ^^—-^JL^} T (D, i , 
Wn) \Z^-r-fn^^L.U^. 

>— 

* MOVE GS###*-**»*t OF W03 

* TO Flf###t-**»** OF F###f#-REC. 

* PERFORM I0-W03-RD*-SEC. 

* IF RD*-INVS = • IV 

* MOVE @X20@ TO @S;i69-@S;i9@ OF W03 

* ELSE 

* MOVE F#ifitif»-§!K19@ OF Ff####-REC 

* TO @XI6@-@X19§ OF W03 

* END-IF. 

^■^y 7< ju (7^ ^ ~ mm (D J" - 9 >E> ^ - 1^ ^ ^ e^gg-r-s y □ ASS 

* COMPUTE §%\6@-§%m OF W03 

* = 999-itt9 OF W03 
+ f OF W03. 

7!k L X ^ , 
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mm^^<D^m. @%8@, @%i6@. @%i9@, @%2o@, # 
#####, *, ### — ###, — * 

* 

* 

* 

L-W03-GSOI08-PASSN01-SEC SECTION. 
L-W03-GSOI08-PASSN01-START. 

*— < ^Mm^ >— 

IF GSOI08-PASSN01 OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-PASSNOI-EXIT 
END-IF. 
*— < ge^sg >— 

MOVE GS0I08-PASSN0I OF W02 

TO GS0108-PASSN0I OF W03 

*— < 0^tL-n^ >— 

IF GSOI08-PASSNO1 OF W03 = LOW-VALUE 
OR GSOI08-PASSNOI OF \V03 > 0 

ADD 1 TO GSOI08-PASSN01-CNT 
IF GSOI08-PASSN01-CNT < RECALL-MAX 
MOVE ■ 1" TO RECALL-FLG 

ELSE 
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MOVE T TO GSOI08-PASSN01-NON 
END-IF 
END-IF. 

L-W03-GSOI08-PASSNO1-EXIT. 
EXIT. 

* 

t 



L-W03-GSOI08-CLNAME-SEC SECTION. 
L-W03-GSOI08-CLNAME-START. 

*— < ^Mm^ >— 

IF GSOI08-CLNAME-XX OF W03 NOT = ALL '9" 
GO TO L-W03-GS0I08-CLNAME-EXIT 

END-IF. 
*--< gS^fiic >-- 

*— < iii ;b M 14 CO ch ^ 7 z ;U{C|h1 — .^igri^^nti'^ - b S 
>— 

MOVE G SO 1 08- PASSNOI OF WO 3 

TO FMOTOFIL- PASSNOI OF FMOTOF IL-REC. 
PERFORM I0-W03-RD1-SEC. 
IF RDl-INVS = 'IV" 

MOVE ALL "9' TO GSOI 08-CLNAME-XX OF W03 

ELSE 

MOVE FMOTOF I L-CLNAME OF FMOTOF IL-REC 

TO GSOI08-CLNAME OF W03 
2 8 
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END-IF. 
*--< 5£3l^JS >-- 

IF GS0I08-CLNAME-XX OF W.03 = ALL '9" 
OR GSOI08-CLNAME-XX OF W03 > 0 
ADD I TO GS0I08-CLNAME-CNT 
IF GS0I08-CLNAME-CNT < RECALL-MAX 
MOVE ' r TO RECALL-FLG 

ELSE 

MOVE ' r TO GS0I08-CLNAME-N0N 
END-IF 
END-IF. 
L-W03-GSOI08-CLNAME-EXIT. 
EXIT. 

* 

* 



L-W03-GSOI08-YOKNZAN-SEC SECTION. 
L-W03-GS0I08-YOKNZAN-START. 

*--< mM'n^ >~ 

IF GSOI08-YOKNZAN OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-YOKNZAN-EXIT 
END-IF. 
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MOVE G SO 1 08- PASSNOl OF W03 

TO FMOTOFIL- PASSNOl OF FMOTOFIL-REC. 
PERFORM IO-W03-RDI-SEC. 
IF RDl-INVS = • IV" 

MOVE ALL '9' TO GS0I08-CLNAME-XX OF W03 

ELSE 

MOVE FMOTOFIL-YOKNZAN OF FMOTOFIL-REC 

TO GSOI08-YOKNZAN OF W03 

END-IF. 
*— < fiXjif'J^ >— 

IF GSOI08-YOKNZAN OF W03 = LOW-VALUE 
OR GS0I08-YOKNZAN OF W03 > 0 

ADD I TO GS0I08-YOKNZAN-CNT 
IF GS0I08-Y0KNZAN-CNT < RECALL-MAX 
MOVE ■ r TO RECALL-FLG 

ELSE 

MOVE ' r TO GSOI08-Y0KN'ZAN-N0N 
END-IF 
END-IF. 

L-W03-GSOI08-YOKNZAN-EXIT. 
EXIT. 

* 

* 

* ^ -y iz - ->* 



L-WO3-GSO108-MSSGCD1-SEC SECTION. 
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L-W03-GS0I08-MSSGCD1-START. 

*— < mmn^ >— 

IF GSOI08-MSSGCD1 OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-MSSGCD1-EXIT 
END-IF. 

*— < gB^fijc >— 

*— < SZiLn^ >— 

IF GSOI08-MSSGCD1 OF W03 = LOW-VALUE 
OR GSOI08-MSSGCD1 OF W03 > 0 

ADD 1 TO GSOI08-MSSGCDI-CNT 
IF GS0IG8-MSSGCDI-CNT < RECALL-MAX 
MOVE • r TO RECALL-FLG 

ELSE 

MOVE 'I' TO GS0I08-MSSGCD1-NON 
END-IF 
END-IF. 

L-W03-GSOI08-MSSGCDI-EXIT. 
EXIT. 

i 



L-W03-GSOI08-PF3KEY-SEC SECTION. 
L-W03-GS0IO8-PF3KEY-START. 

*— < ^mm^ >— 
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IF GS0I08-PF3KEY OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-PF3KEY-EXIT 
END-IF. 

*— < ge^ee >— 
*—< B^iin^ >-- 

IF GSOI08-PF3KEY OF W03 = LOW-VALUE 
OR GSOI08-PF3KEY OF W03 > 0 

ADD I TO GSOI08-PF3KEY-CNT 
IF GSOI08-PF3KEY-CNT < RECALL-MAX 
MOVE ' r TO RECALL-FLG 

ELSE 

MOVE • V TO GS0I08-PF3KEY-NON 
END-IF 
END-IF. 
L-W03-GSOI08-PF3KEY-EXIT. 
EXIT. 

* 

* 

* 



L-WO3-GSOI08-PF25KEY-SEC SECTION. 

L-W03-GS0I08-FF25KEY-START. 

IF GS0I08-PF25KEY OF W03 NOT = LOW-VALUE 
GO TO L-W03-GSOI08-PF25KEY-EXIT 
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END-IF. 
*--< >— 
*— < gE^figTiL 
*--< fi^tim^ >-- 

IF GSOI08-PF25KEY OF W03 = LOW-VALUE 
OR GSQI08-PF25KEY OF W03 > 0 

ADD I TO GSOI08-PF25KEY-CNT 
IF GSOI08-PF25KEY-CNT < RECALL-MAX 
MOVE ' r TO RECALL-FLG 

ELSE 

MOVE " r TO GS0I08-PF25KEY-NON 
END-IF 
END-IF. 

L-W03-GS0I08-PF25KEY-EXIT. 
EXIT. 

# 

* ex8@ 



Y-W03-@3il6@-@^l9@-SEC SECTION. 
Y-W03-@S;i6i-@«I9@-START. 

IF @XI6@-§:S19@ OF W02 NOT = niQ^ 
MOVE @^16@-@3519@ OF W02 
TO @«16@-@3:i9@ OF W03 
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END-IF. 
Y-W03-@«16@-@!i;i9@-EXIT. 
EXIT. 

* . — 

t 

Y-W03-GS0I08-PASSNO1-SEC SECTION. 
Y-W03-GS0I08-PASSNGi-START. 

IF GSOI08-PASSN01 OF W02 NOT = LOW-VALUE 
MOVE GSOI08-PASSN01 OF W02 
TO GSOI08-PASSN01 OF W03 

END-IF. 

Y-W03-GS0I08-PASSNOI-EXIT. 
EXIT. 

* 

* 

♦ 

Y-W03-GSOI08-CLNAME-SEC SECTION. 
Y-W03-GSOI08-CLNAME-START. 

IF GSOI08-CLNAME-XX OF W02 NOT = ALL ' 9" 

3 4 



wo 99/49387 



PCT/JP99/01394 



MOVE GS0I08-CLNAME OF W02 
TO GS0I08-CLNAME OF W03 

END-IF. 
Y-W03-GSOI08-CLNAME-EXIT. 
EXIT. 

* 



Y-W03-GSOI08-YOKNZAN-SEC SECTION. 
Y-W03-GSOI08-YOKNZAN-START. 

IF GSOI08-YOKNZAN OF W02 NOT = LOW-VALUE 
MOVE GS0I08-Y0KNZAN OF W02 
TO GSOI08-YOKNZAN OF W03 

END-IF. 

Y-W03-GS0I08-Y0KNZAN-EXIT. 
EXIT. 

* 

* ■;/ -t: — 



Y-\V03-GS0108-MSSGCD1-SEC SECTION. 
Y-W03-GS0I08-MSSGCD1-START. 

IF GSOI08-MSSGCD1 OF W02 NOT = LOW-VALUE 
MOVE GSOI08-MSSGCD1' OF W02 
TO GSOI08-MSSGCD1 OF W03 
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END-IF. 
Y-ff03-GSOI08-MSSGCDI-EXIT. 
EXIT. 

* 

i 



Y-ff03-GSOI08-PF3KEY-SEC SECTION. 
Y-ff03-GSOI08-PF3KEY-START. 

IF GSOI08-PF3KEY OF W02 NOT = LOW-VALUE 
MOVE GSO108-PF3KEY OF W02 
TO GS0I08-PF3KEY OF W03 

END-IF. 
Y-W03-GSOI08-PF3KEY-EXIT. 
EXIT. 

* 

* 



Y-W03-GSOIO8-PF25KEY-SEC SECTION. 
Y-W03-GSOI08-PF25KEY-START. 

IF GSOI08-PF25KEY OF \V02 NOT = LOW-VALUE 
MOVE GS0I08-PF25KEY OF ff02 
TO GS0I08-PF25KEY OF W03 

END-IF. 

Y-W03-GSOI08-PF25KEY-EXIT. 
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EXIT. 



PERFORM L-W03-@S16§-@%19@-SEC. 

* 

PERFORM Y-W03-§S;i6@-@X19@-SEC. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 

SOURCE-COMPUTER. AS400. 

OBJECT-COMPUTER. AS400. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

* 

*— K E 0 — * 

SELECT &X16@ ASSIGN TO D.ATABASE-@X 1 6§ 

ORGANIZATION IS INDE.XED 
ACCESS MODE IS DYNAMIC 
RECORD KEY IS EXTERNALLY-DESCRIBED-KEY 
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* WITH DUPLICATES 
FILE STATUS IS 9X24@. 

K E Yil L--* 

* SELECT 8%I6@ ASSIGN TO DATABASE-eX 1 68 

* ORGANIZATION IS SEQUENTIAL 

* ACCESS MODE IS SEQUENTIAL 

* FILE STATUS IS @S249. 
DATA DIVISION. 

FILE SECTION. 
FD 

LABEL RECORD IS STANDARD. 
01 @3!16@-R. 

COPY DDS-ALL-FORMATS OF @!S16@. 
01 @3;i6@-REC. 

COPY §a;9@. 

************************ **t*t 

WORKING-STORAGE SECTION. 

01 PALETTE-WORK. 

03 PS PIC S9(03) COMP. 
01 WK-FILE-STATUS. 

03 @%24% PIC .X(02). 
01 FILE-STATUS. 

03 @«7@-0PNS PIC X(01). 

03 @^7@-REDS PIC X(01). 

03 @«7@-INVS PIC X{02). 
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*— <wo3 mm{7 T\zm.mT^, 

01 WK-@X16@. 
COPY @3;i6@. 

LINKAGE SECTION. 



*--< CTRL >--* 
01 CTRL-AREA. 

COPY CTRLAREA. 
*— < W02 >--♦ 
01 W02-AREA. 

02 W02 OCCURS 5. 
COPY WQ204. 

* --< mm >— 

03 \V02-@a!16@ REDEFINES INFO. 
COPY 

03 @^16§-N0N REDEFINES NON-FLG. 
COPY @«16@N. 
*--< W03 >— * 
01 W03-AREA. 
02 W03. 

* --< I / F«$g >-- 
03 ^V03-CNTRL. 




05 RECALL-FLG 



PIC .X(l). 



05 RECALL-MA.X 



PIC 9(2). 



— < mn§ >— 
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03 W03-ITEMS. 

04 W03-@S16Q. 

COPY 83;i6@. 
04 W03-FILE. 

COPY 9216®. 
04 W03-LIST. 

COPY §XI6@. 

* --< ^^5:^ ^ ^ >— 
03 W03-NON. 

COPY §3il6@N. 
COPY @XI6@N. 
COPY §X16@N. 

* — < S^Egc >— 
03 ff03-CNT. 

COPY @s;i6@z. 
COPY @!I516@Z. 
COPY . @X15@Z. 
*--< W04 >— * 
01 W04-AREA. 

02 W04 OCCURS 5. 
COPY W0204. 

* — < iS® >— 

03 W04-§X16@ REDEFINES INFO. 

COPY @%16§. 
03 OPTION-IDX-DEF REDEFINES OPTION-IDX. 

COPY &%16@C. 
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*--< WFL >— 
01 WFL-AREA. 

03 FILLER PIC X(01). 

*********** ^***if*^*if*i^t***t*****t*ttttt**tt*t ************ 
PROCEDURE DIVISION USING CTRL-AREA 

WG2-AREA 
W03-AREA 
W04-AREA 
WFL-AREA. 

t *************4ift************ 

* * MA I N * 

* **t*************t**t:******** 

MAIN-SEC SECTION. 
MAIN-START. 

*— < mmm >~ 

PERFORM INIT-PROC. 

*— < i<rmmm >— 

PERFORM Y-PROC. 

*— < mmmm >-- 

PERFORM UNTIL RECALL-FLG = SPACE 

MOVE SPACE TO RECALL-FLG 
PERFORM L-PROC 
END-PERFORM. 
*— < Pwrite 

PERFORM I0-\V03-WT*-SEC. 
PERFORM I0-W03-UP+-SEC. 
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*— < mmm >— 

PERFORM FIN-PROC. 
MAIN-END. 

EXIT PROGRAM. 

* * m^m * 

INIT-PROC SECTION. 
INIT-START. 

*--< wmm is^ >-- 

INITIALIZE PALETTE-WORK. 
INITIALIZE WK-FILE-STATUS. 
INITIALIZE FILE-STATUS. 

MOVE SPACE TO FLAME-FLG OF CTRL-AREA. 

MOVE 05 TO RECALL-MAX. 

MOVE HIGH-VALUE TO RECALL-FLG. 
*--< 7.7^-->*No. ig^ >— 

MOVE STAGE-NO OF CTRL-AREA TO PS. 
IF (PS < 1) OR (PS > 5) 

MOVE "STAGEERR" TO MSG-NO 
END-IF. 

*— < mmms " ^" oig^ >~(low-value / all" 9' ) 

MOVE low-value TO 
*— < wo 3 " ^" (Dt^M >— (LOW-VALUE / ALL' 9' ) 

move low-value to wk-items. 

MOVE WK-§^I@ TO W03-@«l@. 
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*--< WMit >— 

INITIALIZE W03-NON. 
INITIALIZE ff03-CNT. 
INIT-EXIT. 
EXIT. 

* ************* 

* ********************* 

Y-PROC SECTION. 
Y-START. 
*--< 

COPY 
Y-EXIT. 

EXIT. 

* *********»t*****4:;^*4: 

* **********4::^tt****** 

L-PROC SECTION. 
L-START. 
*— < 
COPY 
L-EXIT. 
EXIT. 

* ******************** 

* * m^m * 

* ****************** + 
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FIN-PROC SECTION. 
FIN-START. 
*--< -7 T ^ )\^ CLOSE > 
FIN-E.XIT. 
E.XIT. 



* * effi^^ - sections? * 

*— < %%\% 
COPY 

* ************************************** 

* * m'^^m - s e c t i o n * 

* ************************************** 

*— < %%\% 
COPY 

* ************************** 

* * F I L E I /O * 

* ************************** 

* ******************** 

* ******************** 

*— < — -!r>>'ir>'l/ READ ? @«8@ >— 
Id-W03-§!S7@-SEC SECTION. 
IO-W03-@«7@-START. 

IF tX7i-0PEN NOT = " V 

OPEN INPUT @:S16g 
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MOVE ' 1' TO @%7@-0PNS 

END-IF. 

READ @%I68 AT END 

MOVE 'E* TO F-END 

GO TO I0-W03-@X7@-EXIT 

END-READ. 
I0-W03-@%7@-EXIT. 
EXIT. 

*--< KEY READ ? @X89>— 
I0-W03-@!i;7@-SEC SECTION. 
I0-W03-@!S7@-START. 

IF @3;79-0PNS NOT = ' 1' 

OPEN INPUT @X16@ 
MOVE • r TO @«7@-0PNS 

END-IF. 

IF @^7@-REDS NOT = * I* 

READ INVALID 

MOVE MV TO 9X7@-INVS 
GO TO I0-W03-@:S7§-EXIT 

END-READ 

MOVE "1" TO @X7@-REDS 

I0-W03-@X7@-EXIT. 
EXIT. 

* * w^^v Ji — ^ y 

* ******************** 
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♦ --< SXSt >-- 
I0-W03-9«7@-SEC SECTION. 
I0-W03-@X7@-START. 

IF 83;7§-0PNS NOT = * 1" 

OPEN OUTPUT 

MOVE " r TO @357@-OPNS 

END-IF. 

WRITE @«16@-REC INVALID 

MOVE • IV TO 9«7e-INVS 

GO TO I0-W03-@X7@-EXIT 
END-WRITE. 
I0-W03-e^7@-EXIT. 
EXIT. 

IO-W03-@«7@-SEC SECTION. 
I0-W03-@:K7@-START. 
*— < KEY READ ? ©3589 >— 

IF @«7@-0PNS NOT = ' r 

OPEN I-O @«16@ 
MOVE ' r TO @«7e-0PNS 

END-IF. 

* — < k e y 

MOVE WFL-RD?-KEY-8l TO k e y IS-^-V 
READ §S;i6@ INVALID 
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MOVE ' IV TO @X7@-INVS 
GO TO I0-W03-9X7@-EXIT 

END-READ. 
*--< UPDATE ? @a;8@ >— 

IF gS7@-INVS NOT = • TV- 

REWRITE @a;i6@-REC INVALID 

MOVE • IV TO m§-ims 

GO TO I0-W03-@S7@-EXIT 

END-REWRITE 
END-IF. 
I0-W03-@J;7@-EXIT. 
EXIT. 

%24«%16+STS, 
% 1 tiW 0 n 

^7t. W 0 2 SSiil^^. W 0 2 /I U -y KP^Il^, W0 4l^^^g^. WO 

4 itm^mRzj^\v 0 4 /\* u -y hm^iz-Di^x hmm^z^wimizra y ^ 
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8 0 6 =t 0 latJ^tl^, 

Hi^ffl h'j7x7'^^r' — A^V7 h':7:cZ. -ecOftH^e, 
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m m (D m m 
1. (a) ±M-r^v y b 'y :cT \Z'£-mumm . y 7 ji^^tz^tmrn 

If \zy 7 ^ )\^Mm<Dy'— i^mm^^ff z> fzi^cDw 0 3 ^^wMRU^ 0 3 

(a-l) W0 4'&ffiM^{i. mcmS§<DW 0 3 (Dt^— cS'x.U TtS-J" ^" 

( a - 2 ) W 0 4 ^S^^fi, ^l^¥i§<DWO 4 055^— ^X'J 775^"' ^" 
T7'^Vi:^-g-T-SoTl5lUmig(Z)W0 2 S/zfSWO 3 CD ^ fig a£ ^ ^ ^ -t 

^ U -b -y h L , aigmig WW 0 4 cDt'-^S'X U T 75^' "^^iT^^-g"" 

{i^^¥i§i^^<D¥i§tDw 0 4 (7)7=^-5' X u e ^i^¥liwt5^M$ 

^ai LT^ISIS^M^^I^^igcoW 0 4 (Dt^-^XU TfClg^L, mrtE 

^iz -v h L . ^^i)!j^"5T^fj:<h # (3 {ST^3i :3 — K hf -S) ^)OT' 

S 0 , 

(a -3) W 0 2 gSillM^li . Slg#g§(75WO 2 CD5='-^X'J T75^"' ^" 

xr^^^m-^izit, mm^'^y ^ '^^mmL. 'Mimm^^y y c^m^fi^^f^ 
tLf^m-^x-hoxwii^m^imr^t^iz^tm^^my y ^?:-tiy b L . 

(a -4) W0 3f£fl3g^fi, 1^1 L;msgcDW 0 2 CD t'- ^ X U Tt^^" ^" 
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( a - 5 ) w 0 3 i^m^Mit. '^mmm(Dwo 3 (d^^—^j^'J rt^" 

T-5) t><75. 

( b ) iiI®a{c^l^ili®±ic^ffiT^^licD^W 0 4 fi^iM^S. i^^'W 0 
=fe fC^migaD&W 0 4 5=^ — ^ X U T $:m^iA/v7t*W 0 4 U -y h . iM® 
-5 i: i =bfC^mi§CD^W 0 2 5=^— ^j- U r$M^ji^fcWO 2 U -y 

t fC€-^ig(D^W 0 3 t"— ^J'X 'J Y ^m^'}2-AjtzW 0 3 yl U <y h 

r -5 u -y hmt, 

/lU-y hf^(D/^Uy hm^my ^ ^y^^iz^y h $ tlT -5 ^ (C H , 
(d) HiIsElWO 4A'Uy h<^llfflcSc3'<SiDli7=^— :$'$li>fi — 

0 2 1/ >y h €llff L, ^I^W 0 2 y\' U -y h CD Sg 5a S M "7 7 
o'^MilME&$f;«i^ L , r^^ $ CfrMiew 0 3 /n' U- -y 
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wo zmm^m. wo si^Lmmm. wo 3^mmmRzj^±t^ (b) 
^m. w 0 4Wim^m. wo 2 mmmm, w 0 3 fetasm. w 0 3 ^ii 

mmRZf±td.(D (b) oyt u (c) cd#S<7)H)t^co&MIc 
2. (a) ^MT-S V h '^7 X T lCik:>g7iiijffi, :7 7 < ;u ^ liijiSM 

o^icy 7'-r;i/MfT<D^*— ^iift^fT^7^c«6<^wo 3 fi: 48^^:5^ z>'w 0 3 

(a-1) W0 4fe1=g^^{i. [Hi C^lgc7)W0 3 (75 T-'-tJ'X 'J TtJ^'" gg" 
TTfcC l^ii^fltS, ^|gW 0 4 C0^|g5=-'-^X U T {C bTJ IS [HI i; ^ gg CO W 0 
3Wx-37xiJT<Dfit^lS^-r-5feCOT$.0. 

(a -2) W 0 4 ISiiJiMl^li, mmm^(D\W 0 4 0^7^-9 J^'}Tf}^" ^" 

-^ui^i^-^-^h-DX'm\^m-m(D\N 0 2Sfc(iwo sroTeEii^T ^7:>^'-ti 
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^tii LT^^tg^M^^l^^lgcDW 0 4 0t^-:$'xiJ 7{CtS^L, 3512 

( a - 3 ) w 0 2 mm^ma. ^mmE<Dw o 2 (^7=^— ^s^x u 775^" ^" 

( a - 4 ) w 0 3 ii^mmit. i5!cmm<Dw 0 2 ot^^-^^x u 7;^^'" sg" 
( a - 5 ) w 0 3 i^mmmit. ^mmm<Dw o 3 cdt"— ^xu t-/)^" ^e" 

(DtS^ffl^^ttJ LT^s^^^M^^M^Sf (DW 0 3 cDt"— ^X 'J 7 {CIS 
(b) iliSS{C^i^iS®±{c?^^T-5^lg(D§-W 0 4 {5:fg g^StJ^W 0 

4^fig^^^5:taM^S¥. i&SMSSf <75)iii#;c|iff "itgic s ct^?)^ i: <h 

=b {3 §migc7)&W 0 4 7="— ^X ij 7^m^i^i^/t'VV 0 4 /N* 1/ -y h . iliffi 
-5) ch <ii lZ§mi§c7)^W 0 2 7=^— ^X 'J 7^m^jlA^fcW 0 2 /II/ -y h. 
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0 3Wim^m^&^mm^. mmMmm<Dmmizm^=r'^miz^ti!b^t 
<ht)ic-&^igcD#wo st'-^x'j 7 ^^a^ii^;^^w 0 3 /t u •> 

( d ) sIIbSW 0 4 U ■> h <D|^^f fCSoX U > \i. — 9 <D 

wo 2^^^^, wo 3{itgM^, wo 3 ^S^igS:Z>'±f2(^) (b) <D 
A b -y h M LN' (c) <7) 15 € ^ a6 sBtt L T i5 ^ , 

mm. W0 4f^Jlg^. W0 2^]l^^, W0 3{2:^§^^> WOSISrIl 
M^&rX±nECO (b) (75/1 U >y h8¥MZ>'{C (c) (75? f50F?f^Of5g;r 

Z i: $ # (H: <h T -5 V 7 h 'i' x T (7D Ife ;^ , 
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